home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / chaines.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  619 b   |  30 lines
  1. program chaines;   { Affectation de chaines...}
  2.  
  3. var
  4.     chaine1, chaine2    : string;
  5.     chaine3, chaine4    : string;
  6.     ch1, ch2    : char;
  7.     ch3, ch4    : char;
  8.  
  9. begin
  10.     chaine1 := 'Hello';
  11.     chaine2 := ' World ';
  12.     chaine3 := '!!!';
  13.     writeln ('Phrase: ',chaine1,chaine2,chaine3);
  14.  
  15.     chaine4 := chaine1;
  16.     chaine1 := chaine3;
  17.     chaine3 := chaine4;
  18.     writeln ('Inversion: ',chaine1,chaine2,chaine3);
  19.  
  20.     ch1 := 'O';
  21.     ch2 := 'k';
  22.     ch3 := '!';
  23.     writeln ('Carac: ',ch1,' ',ch2,' ',ch3);
  24.  
  25.     ch4 := ch1;
  26.     ch1 := ch3;
  27.     ch3 := ch4;
  28.     writeln ('inverse: ',ch1,' ',ch2,' ',ch3);
  29.  
  30. end.